(apply #'send *desktop-container* :size '(1220 904))

(APPLY (FUNCTION SEND) *DESKTOP-CONTAINER* :LOCATION (QUOTE (30 50))) 
(SETF *NUM-LISTENER-LINES* 4) (setf *layout-type* 2)
(setf *color-mode* 3)
(setf *desktop-loc-size* '(30 50 1220 904))
(setf *desktop-start-loc-size* '(30 50 964 688))
(setf *long-varobs* 'NIL)
(setf *seven-values* '(1220 904 30 50 1 1280 984))
(send *vista* :save-desktop t)
(send *vista* :normalsize  NIL )
(send *vista* :full-screen T )
(send *vista* :desktop-size (list 1220 904))
(send *vista* :desktop-location (list 30 50))
(send *vista* :workmap-size (list 984 834))
(send *vista* :datasheet-sizes (list 1213 -17))
(send *vista* :spreadplot-sizes (list 1280 984))
(send *vista* :workmap-location (list 4 24))
(send *vista* :datasheet-location (list 4 826))
(send *vista* :workmap-proportion 1)
(send *workmap* :size 924 774)
(send *workmap* :location 4 24)
(send *vista* :background-color T)
(send *workmap* :use-color t)
(WHEN *DATASHEET* (APPLY (FUNCTION SEND) *DATASHEET* :SIZE (QUOTE (500 250)))) 
